* Отгадай цвет
* Программа КОНЦЕПТ (версия от 1.2), 12.07.2012, www.gendoc.ru

присвоить красный 10 зеленый 11 желтый 13 синий 12 закончить 16

рисовать текстВПрямоугольнике 30 0 300 30 'Какого цвета квадрат?'
Квадрат_случайного_цвета

* Нарисовать кнопки с возможными вариантами ответа
присвоить х1 350 у1 40 ширина 300 высота 50
для красный;желтый;зеленый;синий;закончить
  вычислить + х2 [х1] [ширина] -1 
  вычислить + у2 [у1] [высота] -1 
  присвоить $ЦветКисти [[$ОбъектЦикла]]
  рисовать прямоугольник [х1] [у1] [х2] [у2]
  рисовать текстВПрямоугольнике [х1] [у1] [х2] [у2] [$ОбъектЦикла]
  рисовать добавитьСенсор [х1] [у1] [х2] [у2] [$ОбъектЦикла]
  увеличить у1 [высота]
следующий

* Обработка нажатия мыши
функция _$ВЫБОР
  если [_$ВЫБОР;ОБЪЕКТ] == закончить
    показать сообщение 'Программа завершена.' 
    СТОП
  иначе
    если [_$ВЫБОР;ОБЪЕКТ] == [СЛУЧАЙНЫЙ_ЦВЕТ]
      показать сообщение 'Правильно!' 
    иначе
      показать сообщение 'Не правильно.' 
    конец
    Квадрат_случайного_цвета
  конец
возврат

функция Квадрат_случайного_цвета
  список выбратьСлучайный СЛУЧАЙНЫЙ_ЦВЕТ красный;желтый;зеленый;синий
  присвоить $ЦветКисти [[СЛУЧАЙНЫЙ_ЦВЕТ]]
  рисовать прямоугольник 30 30 300 300
возврат